home *** CD-ROM | disk | FTP | other *** search
/ Utilities Professional 1-1500 / Utilities Professional 1-1500 (1994)(WPD)[!].iso / 12511500 / var1287.dms / var1287.adf / menu.AMOS / menu.amosSourceCode
AMOS Source Code  |  1989-08-11  |  3KB  |  70 lines
  1. Screen Open 0,320,256,16,Lowres : Flash Off : Curs Off : Cls 0
  2. Load "pics/menu.abk" : Music 1
  3. Rem
  4. Rem  * Created with RAINBOW WARRIOR - Amos Copper Generator *
  5. Rem  *  Yup, you can blame good ol' Spadge for this one...  *
  6. Rem
  7. Set Rainbow 0,0,280,"","",""
  8. Rainbow 0,0,0,280
  9. Colour Back 256
  10. Restore RDATA
  11. For C=0 To 279 : Read CVA : Rain(0,C)=CVA
  12. Next C : View 
  13. RDATA:
  14. Data $100,$210,$320,$430,$540,$650,$761,$872
  15. Data $983,$A94,$BA5,$CB6,$DC7,$ED8,$FE9,$FE9
  16. Data $ED8,$DC7,$CB6,$BA5,$A94,$983,$872,$761
  17. Data $650,$540,$430,$320,$210,$100,$210,$320
  18. Data $430,$540,$650,$761,$872,$983,$A94,$BA5
  19. Data $CB6,$DC7,$ED8,$FE9,$FE9,$ED8,$DC7,$CB6
  20. Data $BA5,$A94,$983,$872,$761,$650,$540,$430
  21. Data $320,$210,$100,$210,$320,$430,$540,$650
  22. Data $761,$872,$983,$A94,$BA5,$CB6,$DC7,$ED8
  23. Data $FE9,$FE9,$ED8,$DC7,$CB6,$BA5,$A94,$983
  24. Data $872,$761,$650,$540,$430,$320,$210,$0
  25. Data $210,$320,$430,$540,$650,$761,$872,$983
  26. Data $A94,$BA5,$CB6,$DC7,$ED8,$FE9,$FE9,$ED8
  27. Data $DC7,$CB6,$BA5,$A94,$983,$872,$761,$650
  28. Data $540,$430,$320,$210,$100,$100,$210,$320
  29. Data $430,$540,$650,$761,$872,$983,$A94,$BA5
  30. Data $CB6,$DC7,$ED8,$FE9,$FE9,$ED8,$DC7,$CB6
  31. Data $BA5,$A94,$983,$872,$761,$650,$540,$430
  32. Data $320,$210,$100,$100,$210,$320,$430,$540
  33. Data $650,$761,$872,$983,$A94,$BA5,$CB6,$DC7
  34. Data $ED8,$FE9,$FE9,$ED8,$DC7,$CB6,$BA5,$A94
  35. Data $983,$872,$761,$650,$540,$430,$320,$210
  36. Data $100,$100,$210,$320,$430,$540,$650,$761
  37. Data $872,$983,$A94,$BA5,$CB6,$DC7,$ED8,$FE9
  38. Data $FE9,$ED8,$DC7,$CB6,$BA5,$A94,$983,$872
  39. Data $761,$650,$540,$430,$320,$210,$100,$210
  40. Data $320,$430,$540,$650,$761,$872,$983,$A94
  41. Data $BA5,$CB6,$DC7,$ED8,$FE9,$FE9,$ED8,$DC7
  42. Data $CB6,$BA5,$A94,$983,$872,$761,$650,$540
  43. Data $430,$320,$210,$0,$100,$210,$320,$430
  44. Data $540,$650,$761,$872,$983,$A94,$BA5,$CB6
  45. Data $DC7,$ED8,$FE9,$FE9,$ED8,$DC7,$CB6,$BA5
  46. Data $A94,$983,$872,$761,$650,$540,$430,$320
  47. Data $210,$0,$0,$0,$0,$0,$0,$0
  48. Data $0,$0,$0,$0,$0,$0,$0,$0
  49. Data $0,$0,$0,$0,$0,$0,$0,$0
  50. Rem
  51. Rem  * Alter the values in the RAINBOW and SET RAINBOW * 
  52. Rem  * to position and control the rainbows. See the   * 
  53. Rem  * manual to check on Y positioning, Length and    * 
  54. Rem  * which colour it is to effect.. Have fun!        * 
  55. Load Iff "pics/menu.iff"
  56. Screen Display 0,,282,,
  57. Channel 1 To Screen Display 0
  58. Amal 1,"M 0,-256,50" : Amal On : Wait 50
  59. Reserve Zone 3
  60. Set Zone 1,122,83 To 202,110
  61. Set Zone 2,119,131 To 206,156
  62. Set Zone 3,132,179 To 194,202
  63. 1
  64. While Mouse Click=0
  65. Wend 
  66. Z=Hzone(X Mouse,Y Mouse)
  67. If Z=1 Then Rainbow Del : Run "snap.amos"
  68. If Z=2 Then Rainbow Del : Run "MMM/my_music_machine.amos"
  69. If Z=3 Then Rainbow Del : Run "autoexec.amos"
  70. Goto 1